/** ****************************************************************************
  Copyright 2012 Progress Software Corporation
  
  Licensed under the Apache License, Version 2.0 (the "License");
  you may not use this file except in compliance with the License.
  You may obtain a copy of the License at
  
    http://www.apache.org/licenses/LICENSE-2.0
  
  Unless required by applicable law or agreed to in writing, software
  distributed under the License is distributed on an "AS IS" BASIS,
  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
  See the License for the specific language governing permissions and
  limitations under the License.
**************************************************************************** **/
/** ------------------------------------------------------------------------
    File        : AppServerConnectionParameters
    Purpose     : Parameter object for AppServer connections. 
    Syntax      : 
    Description : 
    @author pjudge
    Created     : Thu Jan 13 13:01:22 EST 2011
    Notes       : * This object should be refactored to be more specialised 
                    for AppServers (eg so that the connection string can be
                    composed from properties, say).
  ----------------------------------------------------------------------*/
routine-level on error undo, throw.

using OpenEdge.CommonInfrastructure.Common.Connection.ConnectionParameters.

class OpenEdge.CommonInfrastructure.Common.Connection.AppServerConnectionParameters inherits ConnectionParameters: 
    
	define public property AppServerInfo as character no-undo get. set. 

	define public property UserName as character no-undo get. set. 

	define public property UserPassword as character no-undo get. set. 
	
    constructor public AppServerConnectionParameters():
        super().
    end constructor.
    
	constructor public AppServerConnectionParameters(input pcAppServerInfo as character,
	                                                 input pcUserName as character,
	                                                 input pcUserPassword as character,
	                                                 input pcOptions as longchar):
		super(pcOptions).
		
		assign AppServerInfo = pcAppServerInfo
		       UserName = pcUserName
		       UserPassword = pcUserPassword.
	end constructor.
	
end class.
